home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g41.bas < prev    next >
BASIC Source File  |  1991-10-18  |  306b  |  11 lines
  1. 100 ' G41 T.WAKAMATSU
  2. 110 CLS
  3. 120 FOR K=1 TO 5
  4. 130   Y=238:READ A,C,F,E:DATA 6,1,9,4,5,3,10,4,4,1,9,4,4,2,6,3,0,0,0,0
  5. 140   FOR X=2 TO 318 STEP 4
  6. 150     LINE(    X,    Y)-(636-X,476-Y),PSET,%C,B
  7. 160     LINE(320-X,239-Y)-(316+X,237+Y),PSET,%E,B
  8. 170     Y=Y-3:C=A-C:E=F-E
  9. 180   NEXT X
  10. 190 NEXT K
  11.